home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh21a.d64 / listing 21 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  668b  |  20 lines
  1. 10 REM ******** AUFRUFPROGRAMM FUER TEILBILDSCHIRM **********
  2. 20 REM IN REM-BEMERKUNGEN JEWEILS WERTE FUER DEN C128
  3. 30 REM VORAUSSETZUNG, DASS BEIM C64 AB $C000
  4. 40 REM                     BEIM C128 AB $1400 DAS PROGRAMM LIEGT.
  5. 50 REM
  6. 60 REM ------- EINGABE DER PARAMETER ---------
  7. 70 PRINT CHR$(147):INPUT"LINKE OBERE ECKE Z1,S1";Z1,S1
  8. 80 INPUT"RECHTE UNTERE ECKE Z2,S2";Z2,S2
  9. 90 INPUT"FARBE,WERT";F,W
  10. 100 REM ------- EINPOKEN DER WERTE ------------
  11. 110 POKE 49157,Z1:REM POKE 5125,Z1
  12. 120 POKE 49161,S1:REM POKE 5129,S1
  13. 130 POKE 49166,S2:REM POKE 5134,S2
  14. 140 POKE 49175,Z2:REM POKE 5143,Z2
  15. 150 POKE 49255,F:REM POKE 5223,F
  16. 160 POKE 49259,W:REM POKE 5227,W
  17. 170 REM ------ AUFRUF DER ROUTINE ------------
  18. 180 SYS49152
  19. 190 END
  20.